home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Ver Disp 16.xpl < prev    next >
Text File  |  2002-03-11  |  2KB  |  66 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="5"
  4. "UIPATH 1"="Information\Applications"
  5. "NAME"="Windows Messenger Info"
  6. "VERSION"="1.02"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Times opened"
  9. "TEXT 2"=".NET Account"
  10. "TEXT 3"="Primary Service"
  11. "TEXT 4"="Client Type"
  12. "TEXT 5"="MSN Explorer Build"
  13. "DESCRIPTION 1"="This plug-in shows information about MSN Messenger or Windows Messenger as follows: Number of times it has been opened/run, the default .NET account, the primary service, which client type (MSN Messenger or Windows Messenger), and if MSN Explorer is installed, the build number of it."
  14. "AUTHOR"="Xteq Systems (CptSiskoX)"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17.  
  18. sP="HKCU\Software\Microsoft\MessengerService\"
  19. sV1="WinXPRunCount"
  20. sV2="PrimaryService"
  21. sV3="HKCU\Software\Microsoft\MessengerService\@"
  22.  
  23. sP2="HKLM\SOFTWARE\Microsoft\MSN6\Setup\MSN\"
  24. sV6="SetupVersion"
  25.  
  26. sP3="HKEY_CURRENT_USER\Software\Microsoft\MessengerService\ListCache\.NET Messenger Service\"
  27. sV5="IdentityName"
  28.  
  29. Sub Plugin_Initialize 
  30.     s=RegReadValue(sP & sV1)
  31.     if isempty(s) then s="N/A"
  32.     Call SetUIElement(1,s)
  33.  
  34.     s=RegReadValue(sP2 & sV6)
  35.     if isempty(s) then s="N/A"
  36.     Call SetUIElement(5,s)
  37.  
  38.     s=RegReadValue(sP1 & sV3)
  39.     if isempty(s) then s="N/A"
  40.     Call SetUIElement(4,s)
  41.  
  42.     s=RegReadValue(sP & sV2)
  43.     if isempty(s) then s="N/A"
  44.     Call SetUIElement(3,s)
  45.  
  46.     s=RegReadValue(sP3 & sV5)
  47.     if isempty(s) then s="N/A"      
  48.     Call SetUIElement(2,s)
  49.  
  50.  
  51. 'if exist C:\Program Files\Messenger Plus! Extension
  52. 'then s="Installed"
  53. 'CallSetUIElement(4,s)
  54.  
  55. Call Disable 'user can't change anything!
  56. End Sub
  57.  
  58. Sub Plugin_CheckData(ElementIndex)
  59. End Sub
  60.  
  61. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  62. End Sub
  63.  
  64. Sub Plugin_Terminate 
  65. End Sub
  66.